len_trim_ Function

private elemental function len_trim_(string) result(length)

Get the trimmed length of a varying string

Arguments

Type	Intent	Optional	Attributes		Name
type(varying_string),	intent(in)			::	string

Return Value integer

Source Code

  elemental function len_trim_ (string) result (length)

    type(varying_string), intent(in) :: string
    integer                          :: length


    if(ALLOCATED(string%chars)) then
       length = LEN_TRIM(char(string))
    else
       length = 0
    endif

! Finish

    return

  end function len_trim_